5 PRINT"[147][154]":POKE53280,14:POKE53281,6
10 PRINT"THIS PROGRAM READS THE RESTORE KEY BY"
20 PRINT"CHANGING THE NON-MASKABLE INTERRUPT"
30 PRINT"VECTOR. PRESS RESTORE FOR COUNT OR "
40 PRINT"RUN/STOP TO EXIT."
100 DATA 238,96,3,76
110 FOR J=828 TO 831
120 READ X:POKE J,X:NEXT J
130 POKE 832,PEEK(792)
140 POKE 833,PEEK(793)
150 POKE 792,60:POKE 793,3
160 X=PEEK(864)
170 Y=PEEK(864)
180 IF X=Y GOTO220
190 N=N+1
200 X=X+1:IF X=256 THEN X=0
210 GOTO170
220 IF N=N0 GOTO250
230 N0=N
240 PRINT N;"RESTORE PRESSES SEEN"
250 GET K$:IF K$="" GOTO170
260 POKE 792,PEEK(832)
270 POKE 793,PEEK(833)
280 PRINT "PROGRAM ENDED."